SOME CHARTS
library("tidyverse")
## ── Attaching packages ── tidyverse 1.2.1 ──
## ✔ ggplot2 3.1.0 ✔ purrr 0.3.0
## ✔ tibble 2.0.1 ✔ dplyr 0.7.8
## ✔ tidyr 0.8.2 ✔ stringr 1.3.1
## ✔ readr 1.3.1 ✔ forcats 0.3.0
## ── Conflicts ───── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
source("audience-knowledge.R", local = TRUE)
## Parsed with column specification:
## cols(
## short.name = col_character(),
## type = col_character(),
## knowledge.type = col_character(),
## question = col_character(),
## response = col_character()
## )
gg_plot <- audience_knowledge %>%
ggplot(aes(x = question,
y = response)) +
geom_col() +
coord_flip()
library("plotly")
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
gg_plot %>%
ggplotly()
library("highcharter")
## Highcharts (www.highcharts.com) is a Highsoft software product which is
## not free for commercial and Governmental use
audience_knowledge %>%
hchart(
type = "bar",
hcaes(
x = question,
y = response,
group = knowledge.type
)
)